﻿Imports VN.INS.BL.BC
Imports System.Data

Partial Class Devida_POAFinanciero
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If (Not (Page.IsPostBack)) Then
            'captura de parametros
            ViewState("POA") = Request.QueryString("Param").ToString
            lblPoa.Text = Request.QueryString("Nombre").ToString
            lblPoaImp.Text = lblPoa.Text.ToUpper
            lblMonitoreador.Text = Session("Nombre").ToString.ToUpper
            lblPPER.Text = Session("ABREVIATURA")
            'llenado de datos
            ListaPeriodo()
            ddlPeriodo.SelectedValue = "all"
            carga_grilla(ViewState("POA"), ddlPeriodo.SelectedValue.ToString)
        End If
    End Sub

    Public Sub ListaPeriodo()
        Dim objPPER As PPERBC
        Dim objData As DataTable
        objPPER = New PPERBC
        objData = New DataTable
        'carga de periodos de plan trabajo
        objData = objPPER.ListaPeriodo("PLAN_TRABAJO_INGRESO", Session("Año"))
        Dim drusuariorow As DataRow = objData.NewRow()
        drusuariorow("DESCRIPCION") = "--Seleccione--"
        drusuariorow("PERIODO") = "all"
        objData.Rows.Add(drusuariorow)
        ddlPeriodo.DataSource = objData
        ddlPeriodo.DataTextField = "DESCRIPCION"
        ddlPeriodo.DataValueField = "PERIODO"
        ddlPeriodo.DataBind()
    End Sub

    Public Sub carga_grilla(ByVal POA As String, ByVal strPeriodo As String)
        Dim objFinancieroBC As POABC = New POABC
        Dim dtFinanciero As DataTable
        'carga de grilla de avance financiero
        dtFinanciero = objFinancieroBC.ListaAvanceFinanciero(POA, strPeriodo)
        gv_Detalle.DataSource = dtFinanciero
        gv_Detalle.DataBind()
        gv_doc.DataSource = dtFinanciero
        gv_doc.DataBind()
    End Sub

    Protected Sub btn_salir_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btn_salir.Click
        'retorna a formulario padre
        Response.Redirect("listaPOAs.aspx")
    End Sub

    Protected Sub ddlPeriodo_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlPeriodo.SelectedIndexChanged
        'carga de grilla con periodo seleccionado
        carga_grilla(ViewState("POA"), ddlPeriodo.SelectedValue.ToString)
    End Sub

End Class